CSeg function

  DECLARATION:  CSeg

      PURPOSE:  Returns the current value of the CS register.

         UNIT:  System

  RESULT TYPE:  Word

      REMARKS:  The result of type word is the segment address of the
                of the code segment within which CSeg was called.